#--------------------------------------------------#
#   Data Validation AFI (McMann et al. Approach)   #
#--------------------------------------------------#
#### Preliminaries ####
R.version$version.string
# clear workspace
rm(list=ls())
# load packages
library(here)
library(tidyverse)
library(magrittr)
library(reshape2)
library(ggpubr)
library(leaflet)
library(plotly)
library(gapminder)
library(countrycode)
library(ggrepel)
library(ggthemes)
library(lubridate)
library(estimatr)
library(texreg)
library(readxl)
library(haven)
library(scales)
library(dotwhisker)
library(marginaleffects)
#---------------------------------------------------#
#--------------------load data ---------------------#
#---------------------------------------------------#
data_storage <- "C:/Users/ba72loko/projects/afi_evaluation/data/vdem_v13"
#load coder-level data
coder_level_ds <- read.csv(file.path(data_storage, "vdem_13_coder_level", "coder_level_ds_v13.csv"))
#load coder characteristics
coder_characteristics_wide <- readRDS("data/coder_characteristics_wide_simulated_data.rds")
gc()
